Windows 3.1Æde masaⁿstⁿne τift t²klad²≡²n²zda, Windows 95Æde ise CTRL+ALT+DEL tu■lar²na bast²≡²n²zda kar■²n²za aτ²k olan uygulamalar²n bir listesi gelir. Bu listeyi kullanarak istedi≡iniz uygulamay² sonland²rabilir veya aktif hale getirebilirsiniz. Bu ÷rne≡imizde de yukar²dakine benzer bir uygulama yazaca≡²z. Bo■ formun ⁿzerine ■ekildeki gibi iki komut butonu bir de Combo Box yerle■tirin ve a■a≡²daki kodlar² yaz²n.
'General Declarations B÷lⁿmⁿne yaz²lacak
DefInt A-Z
Declare Function GetWindow Lib "user" (ByVal hWnd, ByVal wCmd) As Integer
Declare Function GetWindowText Lib "user" (ByVal hWnd, ByVal lpSting$, ByVal nMaxCount) As Integer
Declare Function GetWindowTextLength Lib "user" (ByVal hWnd) As Integer
'GetWindows APIÆsinin "sabitleri"
Const GW_CHILD = 5
Const GW_HWNDFIRST = 0
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2
Const GW_HWNDPREV = 3
Const GW_OWNER = 4
Sub GorevListesi ()
CurrWnd = GetWindow(Form1.hWnd, GW_HWNDFIRST)
While CurrWnd <> 0
Length = GetWindowTextLength(CurrWnd)
ListItem$ = Space$(Length + 1)
Length = GetWindowText(CurrWnd, ListItem$, Length + 1)
If Length > 0 Then
Combo1.AddItem ListItem$
End If
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
X = DoEvents()
Wend
End Sub
Form penceresine yaz²lacak...
Sub Command1_Click ()
f$ = Combo1.Text
'E≡er problem τ²karsa g÷zard² et.
On Local Error Resume Next
AppActivate f$
End Sub
Sub Command2_Click ()
f$ = Combo1.Text
On Local Error Resume Next
AppActivate f$
'Uygulamaya ALT+F4 yollayarak kapat.
SendKeys "%{F4}"
End Sub
Sub Form_Load ()
Call GorevListesi
'Herhangi bir uygulama aτ²k de≡ilse programdan τ²k
If Combo1.ListCount > 0 Then
Combo1.Text = Combo1.List(0)
Else
MsgBox "Hiτ Bir Uygulama Aτ²k De≡il", 16
Unload Form1
End If
End Sub
Program² τal²■t²rd²≡²n²zda General - Declarations b÷lⁿmⁿnde tan²mlad²≡²m²z ⁿτ API fonksiyonu kullan²larak aktif uygulamalar τa≡²r²l²r ve Combo kutusuna eklenir. Bu kutudan herhangi bir uygulamay² τa≡²rarak penceresini aktif yapabilir veya uygulamay² kapatabilirsiniz.
Not: Uygulamay² kapatma seτene≡i ALT+F4 tu■lar²n² kabul etmeyen uygulamalar iτin geτerli de≡ildir.